From ac5d626e3343356c13103884e9e968d0c0999f2e Mon Sep 17 00:00:00 2001 From: Mike Williams Date: Tue, 14 May 2002 09:50:19 +0000 Subject: [PATCH] (sgml-tag): Default skeleton-transformation to `identity'. --- lisp/textmodes/sgml-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index b7b2eecfe64..58aec14b48b 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -571,8 +571,8 @@ Completion and configuration are done according to `sgml-tag-alist'. If you like tags and attributes in uppercase do \\[set-variable] skeleton-transformation RET upcase RET, or put this in your `.emacs': (setq sgml-transformation 'upcase)" - (funcall skeleton-transformation - (completing-read "Tag: " sgml-tag-alist)) + (funcall (or skeleton-transformation 'identity) + (completing-read "Tag: " sgml-tag-alist)) ?< str | (("") -1 '(undo-boundary) (identity "<")) | ; see comment above `(("") '(setq v2 (sgml-attributes ,str t)) ?> -- 2.30.2